Visual Basic Source Code

home *** CD-ROM | disk | FTP | other *** search

/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / serial / serializ.frm (.txt) < prev next >

Wrap

Visual Basic Form | 1995-03-06 | 10.2 KB | 335 lines

VERSION 2.00 Begin Form frmSerialization BackColor = &H00C0C0C0& Caption = "Serialization Information" ClientHeight = 5505 ClientLeft = 1350 ClientTop = 1515 ClientWidth = 7575 Height = 5850 Icon = SERIALIZ.FRX:0000 KeyPreview = -1 'True Left = 1320 LinkTopic = "Form1" ScaleHeight = 5505 ScaleWidth = 7575 Top = 1200 Width = 7635 Begin CommandButton Command7 Caption = "&Clear info" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 465 Left = 5310 TabIndex = 19 Top = 4770 Width = 1995 End Begin CommandButton Command6 Caption = "&Set default" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 465 Left = 5310 TabIndex = 18 Top = 4050 Width = 1995 End Begin CommandButton Command5 Caption = "&Read Serialization" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 375 Left = 5040 TabIndex = 7 Top = 1170 Width = 2445 End Begin OptionButton Option1 BackColor = &H00C0C0C0& Caption = "&English" Height = 255 Index = 0 Left = 3870 TabIndex = 1 Top = 90 Value = -1 'True Width = 1545 End Begin OptionButton Option1 BackColor = &H00C0C0C0& Caption = "&French" Height = 255 Index = 1 Left = 5580 TabIndex = 2 Top = 90 Width = 1545 End Begin TextBox SerNumber Height = 285 Left = 90 MaxLength = 9 TabIndex = 17 Tag = "123456789" Top = 5130 Width = 4875 End Begin TextBox SerPart2 Height = 285 Left = 90 MaxLength = 50 TabIndex = 15 Tag = "Company : MicroProgram SoftHouse" Top = 4500 Width = 4875 End Begin TextBox SerPart1 Height = 285 Left = 90 MaxLength = 50 TabIndex = 13 TabStop = 0 'False Tag = "User : Gill Bates" Top = 3870 Width = 4875 End Begin CommandButton Command4 Caption = "&Exit" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 375 Left = 5670 TabIndex = 11 Top = 2970 Width = 1185 End Begin PictureBox Picture1 AutoSize = -1 'True BorderStyle = 0 'None Height = 480 Left = 6660 Picture = SERIALIZ.FRX:0302 ScaleHeight = 480 ScaleWidth = 480 TabIndex = 20 Top = 570 Visible = 0 'False Width = 480 End Begin CommandButton Command3 Caption = "&Add 1 to Serial Number" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 375 Left = 5040 TabIndex = 10 Top = 2520 Width = 2445 End Begin FileListBox File1 Height = 2175 Left = 3150 Pattern = "*.exe;*.dll" TabIndex = 6 Top = 1170 Width = 1815 End Begin DirListBox Dir1 Height = 2055 Left = 90 TabIndex = 5 Top = 1170 Width = 2985 End Begin DriveListBox Drive1 Height = 315 Left = 90 TabIndex = 4 Top = 810 Width = 2985 End Begin CommandButton Command2 Caption = "&Remove Serialization" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 375 Left = 5040 TabIndex = 9 Top = 2070 Width = 2445 End Begin CommandButton Command1 Caption = "&Add Serialization" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 375 Left = 5040 TabIndex = 8 Top = 1620 Width = 2445 End Begin Label Label2 BackStyle = 0 'Transparent Caption = "Select a &language" Height = 195 Index = 0 Left = 90 TabIndex = 0 Top = 120 Width = 3615 End Begin Line Line1 BorderColor = &H00FFFFFF& BorderWidth = 2 Index = 0 X1 = 90 X2 = 7470 Y1 = 450 Y2 = 450 End Begin Label Label1 BackStyle = 0 'Transparent Caption = "&Enter serialization number (9 digits)" Height = 195 Index = 2 Left = 90 TabIndex = 16 Top = 4860 Width = 4875 End Begin Label Label1 BackStyle = 0 'Transparent Caption = "&Enter second part of serialization (50 chars)" Height = 195 Index = 1 Left = 90 TabIndex = 14 Top = 4230 Width = 4875 End Begin Label Label1 BackStyle = 0 'Transparent Caption = "&Enter first part of serialization (50 chars)" Height = 195 Index = 0 Left = 90 TabIndex = 12 Top = 3600 Width = 4875 End Begin Line Line1 BorderColor = &H00FFFFFF& BorderWidth = 2 Index = 1 X1 = 90 X2 = 7470 Y1 = 3510 Y2 = 3510 End Begin Label Label2 BackStyle = 0 'Transparent Caption = "Select an EXE, DLL to add/remove serialization info" Height = 195 Index = 1 Left = 90 TabIndex = 3 Top = 540 Width = 6315 End Option Explicit Sub Command1_Click () cDisableFI Picture1 Call FileProcessAdd cEnableFI Picture1 End Sub Sub Command2_Click () cDisableFI Picture1 Call FileProcessRemove cEnableFI Picture1 End Sub Sub Command3_Click () cDisableFI Picture1 Call FileProcessChange cEnableFI Picture1 End Sub Sub Command4_Click () End End Sub Sub Command5_Click () cDisableFI Picture1 Call FileProcessRead cEnableFI Picture1 End Sub Sub Command6_Click () SerPart1.Text = SerPart1.Tag SerPart2.Text = SerPart2.Tag SerNumber.Text = SerNumber.Tag End Sub Sub Command7_Click () SerPart1.Text = "" SerPart2.Text = "" SerNumber.Text = "" End Sub Sub Dir1_Change () File1.Path = Dir1.Path End Sub Sub Dir1_KeyPress (KeyAscii As Integer) If ((KeyAscii = 32) Or (KeyAscii = 13)) Then Dir1.Path = Dir1.List(Dir1.ListIndex) File1.Path = Dir1.List(Dir1.ListIndex) End If End Sub Sub Drive1_Change () Dir1.Path = Drive1.Drive End Sub Sub Form_Load () Me.Show Call Loader End Sub Sub Option1_Click (Index As Integer) Dim ErrCode As Integer ' check if the option box 'Select a language' has been changed If (Option1(0).Value = True) Then ' change the language to ENGLISH in the system menu of the current form CurrentLanguage = LNG_ENGLISH SelectedLanguage = ".TUK" Else ' change the language to FRENCH in the system menu of the current form CurrentLanguage = LNG_FRENCH SelectedLanguage = ".TFR" End If ' change the language to the new current language in the system menu of the current form Call cLngSysMenu(CurrentLanguage, Me.hWnd) ' change the language to the new current language in all caption controls on the current form ErrCode = cReadCtlLanguage(frmSerialization.Label1(0), RS_CAPTION, DirectoryForApplication + ApplicationName + SelectedLanguage) End Sub